' Test oh splash.txt b+ 2021-03-08 stored as new splash screen for oh
[
cnt = a[cnt,1]
rndpt rp
x1 = m[rp,xmax]
y1 = int[d[rp,ymax]]
w = a[rnd[90],10]
if eq[m[cnt,3],0]
r = 0
g = a[rnd[200],55]
b = 0
ei eq[m[cnt,3],1]
rnd1 = int[rnd[2]]
if rnd1
r = 255
g = 255
b = 255
fi
el
r = 0
g = 0
b = a[rnd[200],55]
fi	
a = int[rnd[32]]
ink r;g;b;a
radius = a[x[w,.55], x[rnd[.3],w]]
[
circ x1;y1;radius
radius = a[radius,.2]
jmp gt[radius,w]
]
wait .01
]